********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Gaji_bersih;
Uses crt;
Var
nama : String;
Gajipokok : Real;
Begin
Clrscr;
Writeln ('mencari gaji bersih');
Write ('masukkan nama:') Readln(nama);
Write ('masukkan gaji pokok:') Readln(Gajipokok);
Tetapanpajak := 100000;
Tunjangan:= (0.10 * Gajipokok);
Writeln ('hasil dari:',nama);
Writeln ('hasil dari:',Gajipokok);
Readln;
End.